home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / listing 7 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  493b  |  19 lines
  1. 5 BASE=2*4096:POKE 53272,PEEK(53272) OR 8 :REM BITMAP AB 8192
  2. 10 POKE 53265,PEEK(53265) OR 32:REM BITMAPMODUS EINSCHALTEN
  3. 20 FOR I=BASE TO BASE+7999:POKE I,0:NEXT:REM BITMAP LOESCHEN
  4. 30 FOR I=1024 TO 2023:POKE I,3:NEXT:REM FARBEN AUF CYAN UND SCHWARZ
  5. 50 FOR X=0 TO 160:REM FUNKTION FUELLT HALBEN BILDSCHIRM
  6. 55 Y1=100+SQR(160*X-X*X)
  7. 56 Y2=100-SQR(160*X-X*X)
  8. 60 FOR Y=Y1 TO Y2 STEP Y1-Y2
  9. 70 CH=INT(X/8)
  10. 80 RO=INT(Y/8)
  11. 85 LN=Y AND 7
  12. 90 BY=BASE+RO*320+8*CH+LN
  13. 100 BI=7-(X AND 7)
  14. 110 POKE BY,PEEK(BY) OR (2^BI)
  15. 114 NEXT Y
  16. 120 NEXT X
  17. 125 POKE 1024,16
  18. 130 GOTO 130
  19.